home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / sac.zip / FOXPRO.ZIP / SACPR1.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1993-08-27  |  18KB  |  371 lines

  1.  [\<1] - 80 Column Deep Sky Report
  2.  [\<2] - 132 Column Deep Sky Report
  3.  [\<3] - Word for Windows (Deep Sky Data File)
  4.  [\<4] - 80 Column Deep Sky Log Report
  5.  [\<Q] - Quit to report menu
  6. DEACTIVATE POPUP
  7. SACPR1
  8.   :  :  
  9. Print 
  10. cPRNf
  11. WINDOW
  12. NFORM_SCR
  13. U2000
  14. TIRION
  15. DDATE
  16. DDATE_1
  17. DDATE_2
  18. CTIME
  19. CNOTES
  20. NINDEX
  21. NORDER
  22. NPR_SS
  23. YESNO
  24. CPR_GIF
  25. CPR_PRN
  26. OPTION
  27. CFILE
  28. CPR_WFW
  29. PRINT
  30.   :  :  
  31. 99:99:99
  32. Ascending
  33. Descending8
  34. SET ORDER TO nINDEX &cORDER
  35. INDEX ON UPPER(CLUBS)+UPPER(OBJECT) 
  36.  FOR CLUBS <> SPACE(10)
  37.  .AND. 
  38. mOBJECT$UPPER(OBJECT)
  39.  .AND. 
  40. mOTHER$UPPER(OTHER)
  41.  .AND. 
  42. mTYPE=TYPE
  43.  .AND. 
  44. mCONST=CONST
  45.  .AND. 
  46. RA-nFAC<=mRA.AND.mRA<=RA+nFAC
  47.  .AND. 
  48. DEC-nFAC<=mDEC.AND.mDEC<=DEC+nFAC
  49.  .AND. 
  50. MAG-nFAC<=mMAG.AND.mMAG<=MAG+nFAC
  51.  .AND. 
  52. BRSTR-nFAC<=mBRSTR.AND.mBRSTR<=BRSTR+nFAC
  53.  .AND. 
  54. mDESC$UPPER(DESC)
  55.  .AND. 
  56. mSIZE$UPPER(SIZE)
  57.  .AND. 
  58. mCLASS$UPPER(CLASS)
  59.  .AND. 
  60. mSOURCE$UPPER(SOURCE)
  61.  .AND. 
  62. NSTS-nFAC<=mNSTS.AND.mNSTS<=NSTS+nFAC
  63.  .AND. 
  64. mCLUBS$UPPER(CLUBS)
  65.  .AND. 
  66. mNOTES$UPPER(NOTES)
  67. SET FILTER TO &cD
  68.  .AND. 
  69. dDATE_1<=LOG_DATE
  70.  .AND. 
  71. LOG_DATE<=dDATE_2
  72. SET FILTER TO &cD
  73. Press [ESC] to return to main menu...
  74. cSAC_INDEXf
  75. CTIME
  76. DDATE
  77. M_SCR
  78. CORDER
  79. NORDER
  80. CSAC_INDEXNINDEX
  81. FNFILE
  82. DEXPLSWAIT
  83. FNTALK
  84. _INDEXOBJECT
  85. MOBJECT
  86. OTHER
  87. MOTHER
  88. MTYPE
  89. CONST
  90. MCONST
  91. BRSTR
  92. MBRSTR
  93. MDESC
  94. MSIZE
  95. CLASS
  96. MCLASS
  97. SOURCE
  98. MSOURCE
  99. MNSTS
  100. MU2000
  101. U2000
  102. MTIRION
  103. TIRION
  104. CLUBS
  105. MCLUBS
  106. CNOTES
  107. MNOTES
  108. SACLOG
  109. DDATE_1
  110. DDATE_2
  111. PRINT1
  112. PRINT2
  113. PRINT3
  114. PRINT4
  115. CDATAPATH
  116. NFORM_NDX
  117. ?? &cPR_DEF
  118. bESC =.T.
  119. ?? &cPR_DEF
  120. ?? &cPR_BON
  121. Page F
  122. 80 Column SAC Deep Sky Report
  123. Date is 
  124.  Deep Sky Filter is 
  125. ?? &cPR_BOFF
  126.  Object: 
  127. Other Names: 
  128.  Type of Object: 
  129. M->TYPE
  130.  Constellation : 
  131. M->CONST
  132. L.S.T.: 
  133.  Right Ascension : F
  134. 99.9999c
  135. Azimuth  (DDD.MMSS):F
  136. 999.9999c
  137.   Date: 
  138.  Declination     :F
  139. 999.9999c
  140. Altitude (DDD.MMSS):F
  141. 999.9999c
  142.   Time: 
  143.  Magnitude  : F
  144. Magnitude of Brightest Star: 
  145.  Description: 
  146.  Size       : 
  147. Class: 
  148. Source : 
  149.  # of Stars : F
  150. U 2000     : 
  151.  Clubs: 
  152. Tirion 2000: 
  153. Notes: 
  154.        
  155. cPRNf
  156. * * * Report Interrupted by User * * *
  157. ?? &cPR_DEF
  158. Number of Printed Records = F
  159. CFILE
  160. NCOUNT
  161. NPAGE
  162. NPR_MAX
  163. NRPT_ROW
  164. NRPT_MAX
  165. INDEXDDATE
  166. DEXLST
  167. CTIME
  168. INDEXDMS
  169. AL_AZ
  170. U2000
  171. FNU2000
  172. TIRION
  173. FNTIRION
  174. MU2000
  175. MTIRION
  176. CSAC_NAME
  177. OBJECT
  178. OTHER
  179. FLD_DES
  180. CONST
  181. BRSTR
  182. CLASS
  183. SOURCE
  184. CLUBS
  185. T_ROW
  186. NOTES
  187. CGIFPATH
  188. CPR_GIF
  189. PRINT_GIF
  190. THERM
  191. ?? &cPR_CON
  192. bESC =.T.
  193. ?? &cPR_BON
  194. Page F
  195. 132 Column SAC Deep Sky Report
  196. Date is 
  197.  Deep Sky Filter is 
  198.                                                   RA              Tirion         Size        # Stars      Source   
  199.      Object             Other       Type  Const   Dec.  Mag.      U2000          Class      Magnitude     Clubs    
  200. ----------------- ----------------- -----  ---  ------- ---- ---------------- -----------     -----     ---------- 
  201. ?? &cPR_BOFF
  202.      
  203.       
  204.            
  205.                                                F
  206.       
  207.        
  208.      
  209.                        Description: F
  210.                              Notes: 
  211.                                     
  212. * * * Report Interrupted by User * * *
  213. ?? &cPR_DEF
  214. Number of Printed Records = F
  215. CFILE
  216. NCOUNT
  217. NPAGE
  218. NPR_MAX
  219. NRPT_ROW
  220. NRPT_MAX
  221. INDEXDDATE
  222. DEXLST
  223. CTIME
  224. INDEXDMS
  225. AL_AZ
  226. U2000
  227. FNU2000
  228. TIRION
  229. FNTIRION
  230. MU2000
  231. MTIRION
  232. CSAC_NAME
  233. OBJECT
  234. OTHER
  235. CONST
  236. SOURCE
  237. CLASS
  238. BRSTR
  239. CLUBS
  240. T_ROW
  241. NOTES
  242. THERM
  243. OBJECT
  244. OTHER
  245. CONST
  246. U2000
  247. TIRION
  248. CLASS
  249. BRSTR
  250. NOTES
  251. SOURCE
  252. CLUBS
  253. bESC =.T.
  254. Number of Printed Records = F
  255. CFILE
  256. NCOUNT
  257. DDATE
  258. CTIME
  259. NDEXCLST
  260. DEXNRA
  261. INDEXNAZ
  262. AL_AZ
  263. U2000
  264. FNU2000
  265. TIRION
  266. FNTIRION
  267. MU2000
  268. MTIRION
  269. OBJECT
  270. OTHER
  271. CONST
  272. _NAME
  273. CLASS
  274. BRSTR
  275. NOTES
  276. NNOTES
  277. SOURCE
  278. CLUBS
  279. THERM
  280. ?? &cPR_DEF
  281. bESC =.T.
  282. ?? &cPR_DEF
  283. ?? &cPR_BON
  284. Page F
  285. 80 Column SAC Deep Sky Log
  286. Date is 
  287.  Deep Sky Filter is 
  288. ?? &cPR_BOFF
  289.  Object: 
  290. Other Names: 
  291.  Type of Object: 
  292. M->TYPE
  293.  Constellation : 
  294. M->CONST
  295. L.S.T.: 
  296.  Right Ascension : F
  297. 99.9999c
  298. Azimuth  (DDD.MMSS):F
  299. 999.9999c
  300.   Date: 
  301.  Declination     :F
  302. 999.9999c
  303. Altitude (DDD.MMSS):F
  304. 999.9999c
  305.   Time: 
  306.  Magnitude  : F
  307. Magnitude of Brightest Star: 
  308.  Description: 
  309.  Size       : 
  310. Class: 
  311. Source : 
  312.  # of Stars : F
  313. U 2000     : 
  314.  Clubs: 
  315. Tirion 2000: 
  316.  Log Date: F
  317. Log Time: 
  318.  Log Date: F
  319. Log Time: 
  320. Notes: 
  321.        
  322. cPRNf
  323. * * * Report Interrupted by User * * *
  324. ?? &cPR_DEF
  325. Number of Printed Records = F
  326. CFILE
  327. NCOUNT
  328. NPAGE
  329. NPR_MAX
  330. NRPT_ROW
  331. NRPT_MAX
  332. NDEXDDATE
  333. DEXLST
  334. CTIME
  335. INDEXDMS
  336. COBJECT
  337. OBJECT
  338. COTHER
  339. OTHER
  340. AL_AZ
  341. U2000
  342. FNU2000
  343. TIRION
  344. FNTIRION
  345. MU2000
  346. MTIRION
  347. SACLOG
  348. CSAC_NAME
  349. FLD_DES
  350. CONST
  351. BRSTR
  352. CLASS
  353. SOURCE
  354. CLUBS
  355. LOG_DATE
  356. LOG_TIME
  357. T_ROW
  358. NOTES
  359. CGIFPATH
  360. CPR_GIF
  361. PRINT_GIF
  362. THERM
  363. PRINT
  364. PRINT1
  365. PRINT2
  366. PRINT3
  367. PRINT4
  368. D:\SKY\SAC\
  369. SACPR1.FXP
  370. D:\SKY\SAC\SACPR1.PRG
  371.